﻿Imports System.Data
Imports System.Data.SqlClient
Public Class Usuario
    Private _Nome As String
    Private _Telefone As String
    Private _Email As String
    Private _Empresa_id As Integer
    Private _Login As String
    Private _Senha As String
    Private _Status_id As Integer

    Public Property Nome() As String
        Get
            Return _Nome
        End Get
        Set(ByVal value As String)
            _Nome = value
        End Set
    End Property
    Public Property Telefone() As String
        Get
            Return _Telefone
        End Get
        Set(ByVal value As String)
            _Telefone = value
        End Set
    End Property
    Public Property Email() As String
        Get
            Return _Email
        End Get
        Set(ByVal value As String)
            _Email = value
        End Set
    End Property
    Public Property Empresa_ID() As Integer
        Get
            Return _Empresa_id
        End Get
        Set(ByVal value As Integer)
            _Empresa_id = value

        End Set
    End Property
    Public Property Login() As String
        Get
            Return _Login
        End Get
        Set(ByVal value As String)
            _Login = value
        End Set
    End Property
    Public Property Senha() As String
        Get
            Return _Senha
        End Get
        Set(ByVal value As String)
            _Senha = value
        End Set
    End Property
    Public Property Status_ID() As Integer
        Get
            Return _Status_id
        End Get
        Set(ByVal value As Integer)
            _Status_id = value
        End Set
    End Property

    Public Sub BuscaLogin()
        Dim DR As SqlDataReader
        Dim param() As SqlParameter = { _
                            ComandosBanco.CriarParametro("@USUARIO_LOGIN", SqlDbType.NVarChar, Login), _
                            ComandosBanco.CriarParametro("@USUARIO_SENHA", SqlDbType.NVarChar, Senha)}
        DR = ComandosBanco.ExecutaRetornaDataReader("prBuscaLoginUsuario", CommandType.StoredProcedure)

        Dim user As New Usuario()
        Dim lst As IList()







    End Sub

    Public Function B() As IList
        Dim Lst As IList

    End Function

End Class
